object DtmGeral: TDtmGeral
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Left = 251
  Top = 137
  Height = 510
  Width = 797
  object ConexaoBanco: TSQLConnection
    ConnectionName = 'GestorMKS'
    DriverName = 'Interbase'
    GetDriverFunc = 'getSQLDriverINTERBASE'
    LibraryName = 'dbexpint.dll'
    LoginPrompt = False
    Params.Strings = (
      'DriverName=Interbase'
      'Database=C:\GESTOR\DADOS\GESTOR_DADOS.FDB'
      'RoleName=RoleName'
      'User_Name=sysdba'
      'Password=masterkey'
      'ServerCharSet='
      'SQLDialect=3'
      'BlobSize=-1'
      'CommitRetain=False'
      'WaitOnLocks=True'
      'ErrorResourceFile='
      'LocaleCode=0000'
      'Interbase TransIsolation=ReadCommited'
      'Trim Char=False')
    TableScope = [tsSynonym, tsSysTable, tsTable, tsView]
    VendorLib = 'fbclient.dll'
    AfterConnect = ConexaoBancoAfterConnect
    BeforeConnect = ConexaoBancoBeforeConnect
    Left = 42
    Top = 8
  end
  object SQLC_Consulta: TSQLClientDataSet
    CommandText = 'select * from SECAO'
    Aggregates = <>
    Options = [poAllowMultiRecordUpdates, poAllowCommandText]
    ObjectView = True
    Params = <>
    AfterOpen = SQLC_ConsultaAfterOpen
    DBConnection = ConexaoBanco
    Left = 98
    Top = 84
  end
  object SQLQ_Geral: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQLConnection = ConexaoBanco
    Left = 224
    Top = 156
  end
  object SQLQ_dados: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQLConnection = ConexaoBanco
    Left = 96
    Top = 156
  end
  object RvS_Relatorios: TRvSystem
    TitleSetup = 'Op'#231#245'es de Impress'#227'o'
    TitleStatus = 'Progresso do Relat'#243'rio'
    TitlePreview = 'INFO PLUS - Visualiza'#231#227'o da Impress'#227'o'
    SystemSetups = [ssAllowCopies, ssAllowCollate, ssAllowDuplex, ssAllowDestPreview, ssAllowDestPrinter, ssAllowDestFile, ssAllowPrinterSetup, ssAllowPreviewSetup]
    SystemFiler.StatusFormat = 'Gerando P'#225'gina %p'
    SystemFiler.StreamMode = smTempFile
    SystemPreview.FormState = wsMaximized
    SystemPreview.MarginMethod = mmScaled
    SystemPreview.MarginPercent = 5.000000000000000000
    SystemPreview.ZoomFactor = 115.000000000000000000
    SystemPrinter.ScaleX = 100.000000000000000000
    SystemPrinter.ScaleY = 100.000000000000000000
    SystemPrinter.StatusFormat = 'Imprimindo p'#225'gina %p'
    SystemPrinter.Title = 'INFO PLUS'
    SystemPrinter.UnitsFactor = 1.000000000000000000
    Left = 96
    Top = 208
  end
  object AutoUpdate1: TAutoUpdate
    Connection = ConexaoBanco
    FTPHost = 'localhost'
    FTPUser = 'upload@marksystte.com'
    FTPPassword = 'm4rksystt3'
    FTPDir = '/GESTORMKS'
    FTPPassive = True
    OptionalUpdate = True
    AutoNeedVersionControl = True
    Compact = True
    OnNeedDeploy = AutoUpdate1NeedDeploy
    OnCreateSQLScript = AutoUpdate1CreateSQLScript
    OnExecuteSQLScript = AutoUpdate1ExecuteSQLScript
    Left = 224
    Top = 400
  end
  object SQLC_GRUPOS: TSQLClientDataSet
    CommandText = 
      'select GRU_CODIGO, GRU_DESCRICAO from GRUPOS order by GRU_DESCRI' +
      'CAO'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    DBConnection = ConexaoBanco
    Left = 34
    Top = 137
  end
  object SQLQ_Auxiliar: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQLConnection = ConexaoBanco
    Left = 32
    Top = 268
  end
  object spDefinirDadosPadrao: TSQLStoredProc
    MaxBlobSize = -1
    Params = <>
    SQLConnection = ConexaoBanco
    StoredProcName = 'SP_DEFINIR_DADOS_PADRAO'
    Left = 224
    Top = 104
  end
  object ZConexaoBanco: TZConnection
    Protocol = 'firebird-2.1'
    HostName = '127.0.0.1'
    Database = 'C:\GESTOR\Dados\GESTOR_DADOS.FDB'
    User = 'SYSDBA'
    Password = 'masterkey'
    BeforeConnect = ZConexaoBancoBeforeConnect
    Left = 128
    Top = 8
  end
  object ZSQL_CONSULTA: TZReadOnlyQuery
    Connection = ZConexaoBanco
    Params = <>
    Left = 400
    Top = 16
  end
  object CDS_CONSULTA: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSP_CONSULTA'
    AfterOpen = SQLC_ConsultaAfterOpen
    Left = 600
    Top = 16
  end
  object DSP_CONSULTA: TDataSetProvider
    DataSet = ZSQL_CONSULTA
    Options = [poPropogateChanges]
    Left = 504
    Top = 16
  end
  object SQL_QUERY: TZReadOnlyQuery
    Connection = ZConexaoBanco
    Params = <>
    Left = 400
    Top = 88
  end
  object ZSQL_MENU: TZQuery
    Connection = ZConexaoBanco
    UpdateObject = ZUpdateMenu
    SQL.Strings = (
      
        'SELECT MEN_CODIGO, MEN_NOME, MEN_CAPTION, MEN_CODIGOPAI, MEN_EXI' +
        'STE, MEN_APLICACAO FROM  MENUS')
    Params = <>
    Left = 615
    Top = 216
  end
  object CDS_MENU: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSP_MENU'
    Left = 312
    Top = 240
    object CDS_MENUMEN_CODIGO: TIntegerField
      FieldName = 'MEN_CODIGO'
      Required = True
    end
    object CDS_MENUMEN_NOME: TStringField
      FieldName = 'MEN_NOME'
      Required = True
      Size = 25
    end
    object CDS_MENUMEN_CAPTION: TStringField
      FieldName = 'MEN_CAPTION'
      Required = True
      Size = 50
    end
    object CDS_MENUMEN_CODIGOPAI: TIntegerField
      FieldName = 'MEN_CODIGOPAI'
    end
    object CDS_MENUMEN_EXISTE: TStringField
      FieldName = 'MEN_EXISTE'
      Required = True
      Size = 1
    end
    object CDS_MENUMEN_VERIFICADO: TBooleanField
      FieldKind = fkInternalCalc
      FieldName = 'MEN_VERIFICADO'
    end
    object CDS_MENUMEN_APLICACAO: TStringField
      FieldName = 'MEN_APLICACAO'
      Size = 30
    end
  end
  object DSP_MENU: TDataSetProvider
    DataSet = ZSQL_MENU
    Left = 623
    Top = 104
  end
  object ZUpdateMenu: TZUpdateSQL
    DeleteSQL.Strings = (
      'DELETE FROM MENUS'
      'WHERE'
      '  MENUS.MEN_CODIGO = :OLD_MEN_CODIGO')
    InsertSQL.Strings = (
      'INSERT INTO MENUS'
      '  (MEN_CODIGO, MEN_NOME, MEN_CAPTION, MEN_CODIGOPAI, '
      'MEN_EXISTE, MEN_APLICACAO)'
      'VALUES'
      '  (:MEN_CODIGO, :MEN_NOME, :MEN_CAPTION, :MEN_CODIGOPAI, '
      ':MEN_EXISTE, :MEN_APLICACAO)')
    ModifySQL.Strings = (
      'UPDATE MENUS SET'
      '  MEN_NOME = :MEN_NOME,'
      '  MEN_CAPTION = :MEN_CAPTION,'
      '  MEN_CODIGOPAI = :MEN_CODIGOPAI,'
      '  MEN_EXISTE = :MEN_EXISTE,'
      '  MEN_APLICACAO = :MEN_APLICACAO'
      'WHERE'
      '  MENUS.MEN_CODIGO = :OLD_MEN_CODIGO')
    UseSequenceFieldForRefreshSQL = False
    Left = 623
    Top = 160
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'MEN_NOME'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'MEN_CAPTION'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'MEN_CODIGOPAI'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'MEN_EXISTE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'MEN_APLICACAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OLD_MEN_CODIGO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'MEN_CODIGO'
        ParamType = ptUnknown
      end>
  end
  object MetadataSQL: TSQLDataSet
    MaxBlobSize = -1
    ParamCheck = False
    Params = <>
    SQLConnection = ConexaoBanco
    Left = 32
    Top = 336
  end
  object ZQryParametros: TZQuery
    Connection = ZConexaoBanco
    UpdateObject = ZUpdateParametros
    SQL.Strings = (
      'SELECT * FROM PARAMETROS WHERE PAR_CHAVE = :PAR_CHAVE')
    Params = <
      item
        DataType = ftUnknown
        Name = 'PAR_CHAVE'
        ParamType = ptUnknown
      end>
    Left = 520
    Top = 272
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PAR_CHAVE'
        ParamType = ptUnknown
      end>
    object ZQryParametrosPAR_CHAVE: TStringField
      FieldName = 'PAR_CHAVE'
      Required = True
      Size = 15
    end
    object ZQryParametrosPAR_MODULO: TStringField
      FieldName = 'PAR_MODULO'
      Size = 15
    end
    object ZQryParametrosPAR_GRUPO: TStringField
      FieldName = 'PAR_GRUPO'
    end
    object ZQryParametrosPAR_OBSERVACAO: TStringField
      FieldName = 'PAR_OBSERVACAO'
      Size = 255
    end
    object ZQryParametrosPAR_TIPO: TStringField
      FieldName = 'PAR_TIPO'
      Size = 1
    end
    object ZQryParametrosPAR_TAMMAX: TSmallintField
      FieldName = 'PAR_TAMMAX'
    end
    object ZQryParametrosPAR_INTERVALO: TStringField
      FieldName = 'PAR_INTERVALO'
      Size = 30
    end
    object ZQryParametrosPAR_VALOR: TStringField
      FieldName = 'PAR_VALOR'
      Size = 1000
    end
  end
  object DSP_PARAMETROS: TDataSetProvider
    DataSet = ZQryParametros
    UpdateMode = upWhereKeyOnly
    Left = 520
    Top = 224
  end
  object CDS_PARAMETROS: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftUnknown
        Name = 'PAR_CHAVE'
        ParamType = ptUnknown
      end>
    ProviderName = 'DSP_PARAMETROS'
    OnReconcileError = CDS_PARAMETROSReconcileError
    Left = 520
    Top = 168
    object CDS_PARAMETROSPAR_CHAVE: TStringField
      FieldName = 'PAR_CHAVE'
      ProviderFlags = [pfInWhere, pfInKey]
      Required = True
      Size = 15
    end
    object CDS_PARAMETROSPAR_VALOR: TStringField
      FieldName = 'PAR_VALOR'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object CDS_PARAMETROSPAR_MODULO: TStringField
      FieldName = 'PAR_MODULO'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object CDS_PARAMETROSPAR_GRUPO: TStringField
      FieldName = 'PAR_GRUPO'
      ProviderFlags = [pfInUpdate]
    end
    object CDS_PARAMETROSPAR_OBSERVACAO: TStringField
      FieldName = 'PAR_OBSERVACAO'
      ProviderFlags = [pfInUpdate]
      Size = 255
    end
    object CDS_PARAMETROSPAR_TIPO: TStringField
      FieldName = 'PAR_TIPO'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object CDS_PARAMETROSPAR_TAMMAX: TSmallintField
      FieldName = 'PAR_TAMMAX'
      ProviderFlags = [pfInUpdate]
    end
    object CDS_PARAMETROSPAR_INTERVALO: TStringField
      FieldName = 'PAR_INTERVALO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
  end
  object ZUpdateParametros: TZUpdateSQL
    DeleteSQL.Strings = (
      'DELETE FROM PARAMETROS'
      'WHERE'
      '  PARAMETROS.PAR_CHAVE = :OLD_PAR_CHAVE')
    InsertSQL.Strings = (
      'INSERT INTO PARAMETROS'
      '  (PAR_CHAVE, PAR_VALOR, PAR_MODULO, PAR_GRUPO, '
      'PAR_OBSERVACAO, PAR_TIPO, '
      '   PAR_TAMMAX, PAR_INTERVALO)'
      'VALUES'
      '  (:PAR_CHAVE, :PAR_VALOR, :PAR_MODULO, :PAR_GRUPO, '
      ':PAR_OBSERVACAO, :PAR_TIPO, '
      '   :PAR_TAMMAX, :PAR_INTERVALO)')
    ModifySQL.Strings = (
      'UPDATE PARAMETROS SET'
      '  PAR_CHAVE = :PAR_CHAVE,'
      '  PAR_VALOR = :PAR_VALOR,'
      '  PAR_MODULO = :PAR_MODULO,'
      '  PAR_GRUPO = :PAR_GRUPO,'
      '  PAR_OBSERVACAO = :PAR_OBSERVACAO,'
      '  PAR_TIPO = :PAR_TIPO,'
      '  PAR_TAMMAX = :PAR_TAMMAX,'
      '  PAR_INTERVALO = :PAR_INTERVALO'
      'WHERE'
      '  PARAMETROS.PAR_CHAVE = :OLD_PAR_CHAVE')
    UseSequenceFieldForRefreshSQL = False
    Left = 520
    Top = 328
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PAR_CHAVE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAR_VALOR'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAR_MODULO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAR_GRUPO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAR_OBSERVACAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAR_TIPO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAR_TAMMAX'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAR_INTERVALO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OLD_PAR_CHAVE'
        ParamType = ptUnknown
      end>
  end
  object spDefineFuncoesEspec: TSQLStoredProc
    MaxBlobSize = -1
    Params = <>
    SQLConnection = ConexaoBanco
    StoredProcName = 'SP_DEFINE_FUNCOES_ESPEC'
    Left = 248
    Top = 24
  end
  object rvCredito: TRvProject
    Engine = RvS_Relatorios
    Left = 113
    Top = 321
  end
  object rv_Credito: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    Left = 161
    Top = 393
  end
  object SQLC_MENU_ACESSO: TSQLClientDataSet
    CommandText = 
      'select MEN_CODIGO, USU_CODIGO  from VIEW_PERMISSOES_MENU'#13#10'WHERE ' +
      'USU_CODIGO= :USU_CODIGO'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'USU_CODIGO'
        ParamType = ptInput
      end>
    DBConnection = ConexaoBanco
    Left = 224
    Top = 216
  end
  object ZRO_MENU_ACESSO: TZReadOnlyQuery
    Connection = ZConexaoBanco
    SQL.Strings = (
      'select MEN_CODIGO, USU_CODIGO  from VIEW_PERMISSOES_MENU'
      'WHERE USU_CODIGO= :USU_CODIGO'
      'ORDER BY MEN_CODIGO')
    Params = <
      item
        DataType = ftUnknown
        Name = 'USU_CODIGO'
        ParamType = ptUnknown
      end>
    Left = 224
    Top = 264
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'USU_CODIGO'
        ParamType = ptUnknown
      end>
  end
  object DSP_MENU_ACESSO: TDataSetProvider
    DataSet = ZRO_MENU_ACESSO
    Left = 224
    Top = 320
  end
  object CDS_MENU_ACESSO: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <
      item
        Name = 'CDS_MENU_ACESSOIndex1'
        Fields = 'MEN_CODIGO'
        Options = [ixPrimary]
      end>
    IndexName = 'CDS_MENU_ACESSOIndex1'
    Params = <
      item
        DataType = ftUnknown
        Name = 'USU_CODIGO'
        ParamType = ptUnknown
      end>
    ProviderName = 'DSP_MENU_ACESSO'
    StoreDefs = True
    Left = 520
    Top = 104
  end
end
